constant false := nil;
constant spaceStr := " ";
constant newlineStr := "\n";

constant printOn := true;
constant notifyOn := true;



DefConst('kExtrasName,"I'm Melting");
DefConst('kSignature,"FlaSheridn");
DefConst('kSignatureFlash,"FlaSheridn");
		 
	DefConst('kAppString,kExtrasName & $: & kSignature);
	DefConst('kPackageName,kAppString);
	DefConst('kAppSymbol,Intern(kPackageName));

constant kVersNumbStr := "0.0d0";
defconst( 'kCompileTime, time());
write(newlineStr & kExtrasName  && kVersNumbStr && dateNTime(kCompileTime) );  
write(newlineStr);
DefConst('kAppStrFla,        //kExtrasName && kVersNumbStr);
if debugOn then kExtrasName && kVersNumbStr && dateNTime(kCompileTime) else kExtrasName && kVersNumbStr);



defconst('kMyNotifyInternal , func(mess )
begin
      GetRoot():Notify(kNotifyQAlert, 
         ensureInternal(kAppStrFla), 
         ensureInternal(mess) );
end);



RemoveScript := func(partFrame)
BEGIN
print ("Oh no, I'm Melting");
addDeferredAction(func() playSoundSync(ROM_crumple) , []); 
END;
